home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 2.iso / mac / DISK2 / DATA / phot2.Dxr / 00015.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  1.1 KB  |  62 lines
  1. on exitFrame
  2.   if isslideshowtimeout() and isautomode() then
  3.     startslideshowtimer()
  4.     go(the frame + 1)
  5.   else
  6.     go(the frame)
  7.   end if
  8. end
  9.  
  10. on wait t
  11.   set wk to the ticks + (t * 60.0)
  12.   repeat while wk > the ticks
  13.     nothing()
  14.   end repeat
  15. end
  16.  
  17. on buttonaction sp
  18.   set the visible of sprite sp to 0
  19.   puppetSound("Laser.aif", 2)
  20.   updateStage()
  21.   wait(0.5)
  22.   set the visible of sprite sp to 1
  23.   puppetSound(0, 2)
  24.   updateStage()
  25. end
  26.  
  27. on buttonaction2 sp
  28.   set the visible of sprite sp to 0
  29.   updateStage()
  30.   wait(1)
  31.   set the visible of sprite sp to 1
  32.   updateStage()
  33. end
  34.  
  35. on mouseDown
  36.   set sp to the clickOn
  37.   case sp of
  38.     2, 3, 4:
  39.       setspeed(sp - 1)
  40.     6:
  41.       buttonaction(sp)
  42.       go(1, "menu2")
  43.     7:
  44.       buttonaction(sp)
  45.       quit()
  46.     8:
  47.       set the visible of sprite 5 to 1
  48.       buttonaction2(sp)
  49.       go("FIN")
  50.     9:
  51.       set the visible of sprite 5 to 1
  52.       buttonaction2(sp)
  53.       go(the frame + 1)
  54.     10:
  55.       if the visible of sprite 5 = 0 then
  56.         set the visible of sprite 5 to 1
  57.       else
  58.         set the visible of sprite 5 to 0
  59.       end if
  60.   end case
  61. end
  62.